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1 HUM wate change parameters module’ 
‘ LANGUA (BLISS 
4 ADDRESSING_MO NONE XTERNAL =GENERAL) , 
5 ADDR $5] NGO ROD (Ext RNAL=GENERAL), 
= 
$ : 
8 BEGIN 
19 | eeaecencecanerevenecnnccenenecsrerenecneeerenereenneennentnnnnnatnnenenenees 
‘@ x 
ig ie COPYRIGHT (c) 1978 1980, 1982, 1984 BY « 
1 ie DIGITAL EQUIPMENT COR ORATION, MAYNARD, MASSACHUSETTS. * 
16 is ALL RIGHTS RESERVED ° 
1g ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED x 
1 ie ONLY IN ACCORDANCE WITH S OF SUCH LICENSE AND WITH THE ®* 
18 ie INCLUSION OF THE ABOVE OPYRIGH TICE. THIS SOFTWARE OR ER 
1 ie COPIES THEREOF NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
1 is TRANSFERRED. . 
§ ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
4 ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
4 is CORPORATION. ‘ 
$ ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
8 is SOFTWARE ON EQUIPMENT WHICH I$ NOT SUPPLIED BY DIGITAL. ‘ 
i 
L pamenevedscnnnntenentenndsonseesosnebeernenesnesueewenednensteneeenennnenes 


tee 

: FACILITY: DECnet-VAX Network Management Listener 

i ABSTRACT: 

This module contains routines to handle dispatching of NCP 
SET, CLEAR, DEFINE, and PURGE commands to the correct routine 
according to the specified entity type. 

i ENVIRONMENT: VAX/VMS Operating System 

i AUTHOR: Kathy Perko 
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! 
i CREATION DATE: 15~April-1982 
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§ i MODIFIED BY: 

39 v03-009 ae 9 Kathy Perko 9-Jan-1984 

§ X25-Access Module entity. 

4 v03-008 mKP0008 Kathy Perko ohn -1983 

‘ onvert node permanent database to use multiple ISAM keys so 
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v03-007 MKP0007 25-April-1983 
Add support for PURGE NI NI "Weetteurener module circuits. 

v03-006 “KP0006 Kathy y Perko 21-Jan-1983 
Add support for NI Conf gurator module. 

v03-005 mKP000S Kathy Cores 88-Nov-1982 
Change error reported t NCP if entity format is 
has nat action routine in dispetsh table. Change it 
eee sd nvalid function or option” to ‘invalid identification 

v03-004 MKP0004 Kathy Perko 26-Sept-1982 
Change DEFINE KNoON OGGING to a separate routine. 

v03-003 mKP0003 Kathy A to 21-Sept-1982 
Allow disconnect of H single Link without a "aie name 
specified. 

v03-002 igs | Kathy Perko 31-Aug-1982 
Fix X25 Protocol Grow dispatch table to silos SET X=-P 
GROUP FRED ALL and SET X-P K GROUP ALL. 

v03-001 MKP0001 Kathy Perko 21-June-1982 


Add a dispatch reut ine for X25-Protocol networks. This 
is needed because a the creation of a special network 
entity, active network. 

Change DISC LINKS to yee ualifier logic if there is 
a node specified in the NICE message 

Redo Ctepeten tables. to specify a Tterent change 
routine if the NIC E soe mmand includes a qualifier. 
Add X29-Server and X25-Trace entities. 
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YOL~600 Declarations 12-808-1382 99:08:32 NAL SRE NAL CHANGE .B32; 
! 
} Macro to build dispatch table for an entity. 


1 MACRO STAB (TAB, 


SET gGUACCRIN® SET_KNO_RTN SE 
CLEAR Rtn, CLEAR W QUAL_RfN, CLEAR KAO L 

INE_RTN, DEFINE @ QUAC_RTN, DEFINE KNO_RTN, DE 
PURGE _RTN, PURGE_@_GUAL_RTN, PURGE_RNO_RTN, PUR 


TAB : pence ESLENGTH * 4) INITIAL ¢ 
PATCH RIN, TAB), 


DEF PARSE, TAB), 
PUR“PARSE TAB), 
"Taeate TAB) 
A,TAB), 
NO-W_QUAL_RTN, TAB), 


“W_QUAL_RTN,TAB), 
“KRO_RTR, TAB) 
KNO-W_QUAL_RTN, TAB), 
INE-W QUAL_RTN, TAB), 
INE~KRO_RTA, TAB) 

INE Noo QUAL_RTN, TAB), 


NO_W_QUAL_RTN 
KRO"W_ QUAL RtN. 
£_RNO_@_GUAL_RTN) = 
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Q 
KRO_RTR, TAB) 
KNO-W_QUAL_RTN, TAB)) 
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SPIC (ADDR,T 
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Beery (ADDR, 0) 
SE LONG (ZNAME (ADDR) = ZNAME (TAB)) 
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Dispatch cabin. There is one table for each jaternel NAL entity (NML 
eaterags entit of ar orqnen down more that NICE entities). The table 
specifies the following information about the entity: 
The ress of the dispatch routine in this module for the entity. 
The dispatch rove nes vary depending on the different 
formats the entities can have. 
The odéresses of the NPARSE tables used to parse the parameters 
n the NICE command. The NICE function, gotion byte, 
and entity have already geen parsed by this time. 
The addresses of the routines which perform the requested change: 
- Set single entity 
Set single eng ity with qualifier 
et known entities 
Set known qntitios with qualifier 
Clear single entity 
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lear single om i. with qualifier 
eer ae ent it ith qualifi 
en es s ua er 

e = aR le entit 
- Define s ingle enti y, with qualifier 
= Define known entitie 

= Define known entities with qualifier 
- Purge single ent 
- Purge single entity y with qualifier 
- Purge known ent 
= Purge known entities with qualifier 


Rw mn me et et et mt mmr 


TAB (LINE_TAB, ! NMLSC_LINE 
NAL CHANGE 
NMLSNPA_S beLIN, NMLSNPA_CL LIN, 
NALSSETENTITY > wal SETKNOWN, 
NAL SCLEARENTITY, a“ LSCLEARKNOUN, 
NMLSDEFENTITY, . WALSDEF INEKHOUN , 
NMLSPURENTITY, ; NMLSPURGEKNOWN, ,. 
STAB (LOGGING TAB ! NMLSC_LOGGING 
NML_CHANGE_LOGGING, 
NMLSNPA_SEDELOG, | NMLSNPA_CLP LOG, 
NMLSSETCOGGING, é ETKNOLOG 
NMLSCLEARLOGGING, 0, NAL SCLEARKNOLOG, 0, ; 
NMLSDEFLOGGING, " NMLSDEFK 0G, 
NMLSPURLOGGING, . NALSPURGERNOUN: 5; 
BIND SINK_TAB = UPLIT (0); 
STAB (NODE_TAB, ! NMLSC_NODE 
NML_ CHANGE NODE 
NMLSNPA_SEDENOD, | NMLSNPA_CLPUNOD, 
NMLSSETENTITY : MLSSETKNONODES . 
WMLSCLEARENTITY, : NMLSCLEARKNONODES, . 
NML SDEF INE - “ LSDEF INE KNOWN NODES, 
NMLSPURENTITY, . GE_RNOWN_NODES, 05; 
STAB (NODEBYNAME_TAB, ! NMLSC_NODEBYNAME 
NML_ CHANGE NODE, 
NMLSNPA_SEBENOD, CLPUNOD 
NMLSSETENTITY - 
NMLSCLEARENTI TY, . weep meth 
NAL SDE INE NODE, ; NAL SDEF INE_KNOWN NODES, 
NMLSPURENTITY, ; NMLSPURGE_RNOWN_RODES, ,; 


BIND LOOPNODE_TAB = UPLIT (0); 
BIND ADJACENT_NODE_TAB = UPLIT (0); 
STAB (EXECUTOR TAB, ! NMLSC_EXECUTOR 
*NMLSNPA_CLPUEXE, 
NAL SCLEAR XECUTOR, 0. ; " 
DE, : . 
NMLSPURENTITY, “ : 5; 
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fy, 3 
NMLSPURENTITY, i 
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! NMLSC_OBJECT 


£08J. NMALSNPA_CL J. 


NMLSPURGEKNOWN, 05; 
! WMLSC_CIRCUIT 


NMALSSETKNOWN, 3 


R, NMLSNPA “Wes 


ETeNOUN, 0, 
Suu ies, f 
NMLSPURGEKNOWN, 05; 


BIND CIRCUIT_ADJACENT_TAB = UPLIT (0); 
BIND CIRCUIT_ADJ_SRC_TAB = UPLIT (0); 


BIND AREA_TAB = UPLIT (0); 
STAB (ACCESS TAB. 
NMLSNPA SEBE Pe esehec SS, 


NMLSSETENT " 
NALSCLEAR ARENT] it » 


EE 


! NMLS$C_X25_ACCESS 
NMLSNPA_CLPU_X25 ACCESS, 
NMLSSETRNOWN, 
NMLSCLEARKNOWN, 

NALSDEF INEKNOWN, 
NMLSPURGEKNOWN, ‘. 
! NMLSC_PROT_NET 


NMLSNPA_CLPU_PROT_NET, 


RALSNPA SEBE PROT . ; , 
aA Sttiaaentity, . ; . 
NMLSDEFENTITY, ; “ 
NMLSPURENTITY, : 5; 

STAB (PROT_DTE_TAB, ! NMLSC_PROT_DTE 
NML_ CHANGE 
NMLSNPA_SEDE_PROT_DTE, NMLSNPA_CLPU_PROT_DTE, 
NMLSSETENTITY NMLSSETRNOWN; 07 
NAL $C EARENTI fy, . NMLSCLEARKNOUN, 0, 
NMLSDEFENTITY, : NMLSDEF INEKNOWN, 
NAMLSPURENTITY, . NMLSPURGEKNOWN, 05; 

STAB (PROT _GRP_TAB, ! NMLSC_PROT_GRP 
NML_ CHANGE; 
NMLSNPA_SEDE_PROT_GRP, NMLSNPA -CuPy PROT GRP, 
NMLSSETR LSSETENTITY SET 
NMLSCLEARENTITY, | NMLSCLEARENTIfY, NAL SCEEARKNOUN, 
0. LSDEFENTITY, 
NAL SPURGEKNOWN, NMLSPURENTITY, NALSPURGEKNOWN, ; 


STAB (X25_SERV =f. 
_CRANGE 


! NMLSC_X25_SERV 


AX-11 Bliss-32 V4.0-74 
NML . SRC INML CHANGE .B32; 
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NAL hac erent = SERV, 
NAL CEARENTLfy, 


NAL ity 
NAL ENTITY, 
STAB (X25 _ SERV_DEST_TAB, 


X25_SER 
Rat eereaT if? 25..SE 
tify, 


RAL SDEFENTITY, , 


STAB eet {es. 


DEST, 


NMLSPURENTITY, 
STAB CTRACEPNT _TAB, 
PAN SEGE “eh 5 

0 


ooo 
in 


RAC SSETENTITY 
ARENTI TY, 
WALSSEFERT ITY. 
NMLSPURENTITY, 

n 


E_X29_SERV_DEST, 


te ae 8 ds a at 


ECT_LINKS 
: ae 


me a a a a at a a = a a a 8 


UMFwrn—-O0@ 


fornonorofnony 


ifoseo-t9ge 13:88 aa 
NMLSNPA_CLPU_X25_ SERV, 
; : ‘ 
! NMLSC_X25_SERV_DEST 
NAL SNPA CLPU_X25_SERV_DEST, 
mit LEARKNOUN. 3 
NMLSDEF INEKNOWN, 
NMLSPURGEKNOWN, 05; 


! NMLSC_TRACE 
NAL SNPA_CLPU_TRA E, 


; . 5; 
! NMLSC_TRACEPNT 
NMLSNPA_CLPU_TRACEPOINT, 
SSETRNOWN, 


NMLSPURGEKNOWN, OS; 
! NMLSC_X29_SERV 
NMLSNPA_CLPU_X29_SERV, 


. : 05; 
! NMLSC_X29_SERV_DEST 


NMLSNPA CLP X29_SERV_DEST, 
NMLSSET 


4 N, eo 
NMLSCLEARKNOWN, i 
NAL DEF INEKNOWN 
NMLSPURGEKNOWN, 05; 


! NMLSC_NI_CONF IG 


NMLSNPA_CLPU_NI_CONFIG, 
NMLSSET-NI_CONFIG,0 
NMLSCALC_NT_CONFIG,6, 
NMLSDEF IREKROWN, 
NMLSPURGEKNOWN, 05; 


! NMLSC_LINK 
! No further parsing necessary. 
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NALSDISCONNECT, NALSDISCONNECT, NALSDISCKNOWN, NMLSDISCKNOWN, 
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TAB, TABLE_ TAB), 
NT-NODE TAB, TABLE _TAB). 


= ABLE_TAB); 
TAB, TABLE_ TAB) 
- E 


ABLE_TAB 
“ADJACENT TAB, TABLE_TAB), 
ADJ_SRC_TAB, TABLE-TAB), 


» TABLE_TAB), 
TABLE TAB), 
EST TAB. TABLE TAB), 
ABLE_TAB)Y; = 
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yo%~000 NMLSCHANCE Pthenge parameters main routine 12786871382 99:00 Oa ENML.SRE NML CHANGE .832; ° (4) 

; 465 1 ZSBTTL "NMLSCHANGE Chonge parameters main routine’ H 
; ¢ é : GLOBAL ROUTINE NMLSCHANGE : NOVALUE = ‘ 
> 46 465 1 144 ; 
; 2 8 se ! FUNCTIONAL DESCRIPTION: ; 
: 471 1 This routine dispatches the NICE change parameters command to ; 
; 47 § 1! the correct tunetion handler. all : 
3 67 470 1! ; 
; rt 4 1 FORMAL PARAMETERS: : 
: 47 ths ji NONE 3 
; tr yi ; 
: 2% 6 ' } IMPLIC'T INPUTS: ; 
: 480 a 1/ NML$GB_OPTIONS contains the option byte parsed from the NICE message. ; 
; rt re ' NMLSGB_ENTITY_CODE contains the entity code. : 
: 48 0 1 in. ; 
; 484 481 1 3 
; 485 04 ¢ BEGIN : 
; 4 Be 3 
; 487 484 MAP 3 
; 488 485 NML$GB_ENTITY_FORMAT : errs SIGNED, : 
3; 489 4 NMLS$GB_OPTIONS : BBLOCK (1); : 
> 491 488 2 LOCAL F 
; 49 9 ENT_TAB : REF BBLOCK, ! Dispatch table reference : 
; 49 490 RTN_ADDR ! Temporary routine address : 
; rh ht PARSE_TAB, address of NICE message parsing F 
; ! able. 3 
H $98 38 CHANGE_TABLE_ADR: REF BBLOCK! Address of SET, CLEAR, DEFINE, or PURSE ; 
3; 49 0494 : portion of entity dispatch table. : 
; 498 495 CHANGE _RTN; ! Address of routine to perform 3 
; 499 38 ! change requested by NICE F 
3 is 4 ! message. : 
: 0¢ 99 F 
; 50 500 ! 3 
3; 504 501 ! Get address of entity's dispatch table. The addresses are stored as offsets : 
; 505 : : to make NMLSHR PIC. Change the offset into a useable address. : 
; Of 5 ENT_TAB = .TABLE_TAB C.NMLSGL_NML_ENTITY] + TABLE_TAB; ; 
3 oS : 5 IF ENT TAB NEQA™O THEN : 
; 10 3 RTN_ADDR = .ENT_TAB CDTSL_DISPATCH] + .ENT_TAB; : 
; \% 5 5 i Go to dispatch table for the entity specified in the NICE message. F 
3 31 319 ! Get the address the NICE parameter parsing table, and the address : 
; \ 333 } of the routine which performs the type of change requested. : 
; af 218 if .RTN_ADDR NEQA .ENT_TAB THEN ; 
3 : 318 ? BEGIN : 
; 19 16 4 Get parsing table address 3 
; $f ais iF .NML$GB_OPTIONS CNMASV_OPT_CLE) THEN : 
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yo%~000 NMLS CHANCE Pthange parameters main routine 12-86-1382 99:00 ba NML .. SRCJNML CHANGE .B832; rete (4) 
; ¢ 4 PARSE_TAB = .ENT_TAB CDOTSL_CLPU_PARSE] + .ENT_TAB 


PARSE_TAB = .ENT_TAB COTSL_SEDE_PARSE] + .ENT_TAB; 


' 
! Get address of portion of entity's dispatch table teonetatne 
! the change rour ine addresses for the function (SET, CLEAR, DEFINE, 
or PURGE) specified by the NICE message. 


IF .NMLSGB_OPTIONS CNMASV_OPT PER] THEN 


IF .NMLSGB_OPTIONS CNMASV_OPT CLE] THEN 
CHANGE TABLE_ADR = ENT_TAB LDTSA_PURGE_ROUTINES] ! PURGE 


CHANGE_TABLE_ADR = ENT_TAB CDTSA_DEFINE_ROUTINES]; ! DEFINE 


WN —OOONOus 


7 
ELSE 
BEGIN 
IF .NMLSGB_OPTIONS CNMASV_OPT_CLE] THEN 
gg CHANGE-TABLE_ADR = ENT_TAB COTSA_CLEAR_ROUTINES] ! CLEAR 
CHANGE_TABLE_ADR = ENT_TAB CDTSA_SET_ROUTINES); ! SET 


Each function's portion of the entity's dispatch table contains 
sop, seqresess of four change routines. These routines do the 
ollowin - 


ONAULSWN—OOW 


Phange a single entity 

Change a single entity with the specified qualifier. 
Change known entities 

Change known entities with the specified qualifier. 
F OM SEO LENTETY FORMAT EQL NMASC_ENT_KNO THEN 


IF .NMLSGL_PRS_FLGS CNMLSV_PRS_QUALIFIER] THEN 
CHANGE-RTN7= .CHANGE_TABLE-ADR CCHGSL_KNOWN_W_QUAL] 


LSE 
CHANGE_RTN = .CHANGE_TABLE_ADR CCHGS$L_KNOWN); 
ELSE 


IF .NMLSGL_PRS_FLGS CNMLSV_PRS_QUALIFIER] THEN 
CHANGE-RTN7= .CHANGE_TABLE-ADR CCHGSL_ENTITY_W_QUALJ 


LSE 
END CHANGE _RTN = .CHANGE_TABLE_ADR CCHGSL_ENTITY); 


The routine addresses are stored as offsets (to make NMLSHR PIC). 
Make the offset into a callable routine address. 


F o CHANGE LAT NEQ 0 THEN 
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50 2c. oa H 3$ MOVAB 44(R1), CHANGE_TABLE_ADR : 0538 
8b dd booee 4s grec |. 5S + bag 
96 1C al be 906p NOV asini), CHANGE_TABLE_ADR : §235 
50 0c Al 9€ Oss 5$ V $ (R1), CHANGE_TABLE_ADR ; 0540 
52 000000006 00 01 9¢ EF 06 é$ EXTZV #2, #1. NMLSGL-PRS_FLGS, R2 + 055 
FFFFFFFF © 8F D1 070 CMPL sR, =f + 0551 
og 0079 eyee OOS. 78 ? 0553 
98 0c i bo a9% MOVL T3{CHANGE TABLE, ADR). CHANGE _RTN : g227 
52 08 ad 00 itt 7$ MOVL § 8(CHANGE_TABLE_ADR), CHANGE_RTN : 0556 
OS 15 BRIM as, BB, AF Bah 
98 04 Ag b0 O88 MOVL 4 (CHANGE TABLE_ADR), CHANGE_RTN ; $26 
52 60 if a 95: MOVL (CHANGE. TABLE_ADR) , CHANGE_RTN ; 0563 
. a) 8 83398 HBRKP Eau gt _A™ th 
is BB 0098 PUSHR #*M<R37R4> : 0575 
66 0 fe 09 CALLS #3, (RTN_ADDR) tates 
5 DD 00A1 11$:  PUSHL R > 0586 
43 9 CE 000A3 MNEGL #9, -(SP) F 
000000006 0 2 FB OOA6 CALLS #2, NMLSERROR_2 : 
04 OO00AD RET : 0587 


; Routine Size: 174 bytes, Routine Base: S$CODE$ + 0000 


| 


4 7 

SCHANGE NML Change parameters module 16-Sep-1984 00:00:33 AX-11 Bliss-32 V4.0-74 Page 23 
yor~000 WML CHANCE Pthange parameters 12286871382 99:08 ba NML .SRCIJNML CHANGE .B832; . 3} 
; FB $ 1 ZSSBTTL ‘NML_CHANGE change parameters’ 
: 59 ; ROUTINE NML“CHANGE (ENTITY, PARSE_TAB, CHANGE_RTN) : NOVALUE = 
: 595 1 1 f+ 
; 39 38 } } FUNCTIONAL DESCRIPTION: 
; 28 94 1: This routine dispatches to the routine which changes the permanent 
: 95 ! or volatile data base. 
: 601 39 1! INPUTS: 
; 60 238 1! ENTITY The internal NML index for the entity specified in 
; 60 5 1! the NICE command. 
; 604 00 1! PARSE_ TAB Address of NICE message parsing table. 
; 605 601 1! CHANGE _RTN Address of routine to perform change requested 
; 02 1! by NICE message. 
3 rsd 88 1! 
; ope eRe } IMPLICIT INPUTS: 
: ei Bene ! NMLSGB_ENTITY_FORMAT contains the entity format code. 
: 61 08 1 i-- 
3 gi $608 1 
3; 614 610 BEGIN 
oe 
; eit 1§ NML$GB_ENTITY_FORMAT : BYTE SIGNED; 
: 619 0613 IF NOT NMASNPARSE (NMLSAB_NPA_BLK, .PARSE_TAB) THEN 
H ? , bers e NMLSERROR_2 (NMASC_STS_IDE, -NML$GB_ENTITY_CODE) 
; 6 0618 BEGIN 
3 ° § +384 seLeerpeu -NMLSGB_ENTITY_FORMAT OF 
; 625 621 NMAS$C_ENT_KNO): ! Known entities 
3 6s6 g NMC_CHANGE_PLURAL (.ENTITY, .CHANGE_RTN, 0, 0, 0, 0, 0); 
: 628 4 {1 TO 31): ! Single entity 
; ° 9 5 2 BEGIN 
; 631 6 $ 4 i ALL entity names except X25 Tracepoints must be 1 to 16 
3 ? ; 6 3 ? } characters. 
; 6 630 4 if .NMLSGB_ENTITY_FORMAT GTR 16 AND 
; $ 5 1 4 “ENTITY NEQ NMCSC_TRACEPNT THEN 
; § ? ." ERROR_2 (NMASC_STS_IDE, .NMLSGB_ENTITY_CODE) 
; 6 634 4 NML_CHANGE_PLURAL (.ENTITY, .CHANGE_RTN 
> 639 5 4 “NMLS$GB_ENTITY_FORMAT, NMLSAB_ENTITY_ID, 
> 640 6 4 ~NMLS$GL"QUALIFTER_PST, 
3; 641 4 oN cee QUALIFIER_FORMAT, 
Z O66 3 4 NMLSAB_GUALIFIER_TD); 
3 ot; 6 3 END; 
> 645 41 COTHERWISE): 
: 048 4g NMLSERROR_2 (NMASC_STS_IDE, .NMLSGB_ENTITY_CODE); 
; 64 64 TES; 
3; 648 644 END; 


33 


4 oo 


ws 


; 649 


NAL change parameters module 
NML_CHANGE Change parameters 


0645 1 END; 


0004 


000000066 
000000006 


i 000000006 
8F 


00000000v 00 
43 000000006 
000000006 00 


—_ 
on" 
Oooo OF PMNOOOON YS OMUMUVUIN VINNOMOWUIOOF 


MOO NOOMVMOOOCOC OM SNWLWw OM MMMMOMVoOorVvon 


; Routine Size: 121 bytes, Routine Base: 


if: 


_f 
eo- 
$ep- 


3H 9: 08:8 


! End of NML_CHANGE 


a8 
EB 9001 
#1 9004¢ 
7C¢ 88 8 
7¢ 024 
D4 000 § 
11 00 

b 002A 
1 002C 
at O00et 
91 bp 3 
15 00036 
D1 00038 
12 Opee 
SF OOO3E 
9A 94 
DD 00048 
9F 00051 
DD 00057 
DD 00059 
DD 0005C 
FB OOOSF 
04 00066 
9A 00067 
CE OO06E 
FB 00071 
04 00078 


SCODES + OOAE 


00000 NML_ CHANGE : 
WO 


18: 


2$: 


3$: 


4$: 


et) Bliss-32 V4.0-74 
NML . SRCINML CHANGE .B832; 


NAL SAB_NPA BLK 
#2, NMASNPARSE 


RO, 4$ 
NML$GB_ENTITY_FORMAT, R2 
R2, #-T 


~~ ee 


. #16 
ENTITY, #20 


( 
( 
( 
$ 
2 
$ 
2 
$ 
2 
$ 


Smo wDewDsewmwiti- 
bad PAMZOM 


IER_ID 
IERTFORMAT, -(SP) 
TER=PST 


R2 
CHANGE_RTN 
NTITY 

#7, NML_CHANGE_PLURAL 

NMLSGB.ENTITY_CODE, ~(SP) 
#2, NMLSERROR_2 


NAL CHANEE LOGGING. Set Logging volatile parane iSseo-9 13598552 ERMC |SREINML CHANGE 036s ne i 7 
ZSBTTL  fiens LOGGING se ' foaging. volatile parameters’ 
ROUTINE NAL_ “LOGGING (ENTITY PAR SE_TAB, CHANGE_RTN) : NOVALUE = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 
This routine sets the specified logging parameters into the volatile 


data base. 
FORMAL PARAMETERS: 
INPUTS: 
ENTITY es M1: jal we index for the entity specified in 
he command. 
PARSE _ TAB Address of NICE message parsing table. 
CHANGE _RTN Address of routine to perform change requested 


by NICE message. 


SESSES 


IMPLICIT INPUTS: 


SS 


EEE ES 


ony NMLSGB_ENTITY_FORMAT contains the entity format code. 
7 _— 
er8 BEGIN 
675 
o78 Mao 
4 NMLSGB_ENTITY_FORMAT : BYTE SIGNED; 
re LOCAL 
LEN 
1 ENTITY_ID; 
5 IF NOT NMASNPARSE ome. wea setk én 
5 a og ER 2 (NMASC_STS_IDE, NMASC_ENT_LOG) ! Option error 
wasps -NMLSGB_ENTITY_FORMAT OF 
6 NMASC_ENT_KNO): ! Known entities 
691 BEGIN 


LEN = 0; 
ENTITY_ID = 0; 
END; 


CNMASC_SNK pine ' Console 
9 NMASC_SNK ' File 
9 NMASC™S Ne-RONS i Monitor 
BEGIN 


aa ee ENTITY_FORMAT; 


— 


ENTITY 1 


uw 


| 
COTHERUI SE): 
res NMLSERROR_2 (NMASC_STS_IDE, NMASC_ENT_LOG); ! Option error | 


Ba Oe Se Se Se Se Se Os Se Se Se Se Ge Se Se Ge Se Fe Se Se Se Se Ge Se FH Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge Se Se Oe Se Ge Ge oe 
PONIES BB AAAI BB III OROPPUPOPNPIPUPUNIUI 2 tt ss 


SII IOO OO 
wr 


vou-600" 


000000006 9 


000000006 
0 000000006 
FF F 


7? 
000000006 00 


orruuv~s 


mom 
> 
NOOUNIM MM QMUIOMONOOOOWS 


00000000v 00 


omtooolT9FNNOoO-99 0-90 “oC —OomMn"o0g 
FODoo9T9 £FOOMG —$f£OF "Wn FN" DOT "oO 


; Routine Size: 88 bytes, Routine Base: SCODES + 0127 


NAL NAL .CHANEE PaGeTNG Set ye volatile parame 1§-se0-1964 99:08 ba NAL LSRE 


; Ai ore: i NML_CHANGE_PLURAL (.ENTITY, . CHANGE 
; ! End of NML_SET_LOGGING 


2 


aRTN, .LEN, .ENTITY_ID, 0, 0, 0) 


00000 NML_ CHANGE LOGGING: 
paar Haat Nas 
PUSHAB NML At wen att 
gibt: RO” 
CVTBL Nai $38 ENTITY_FORMAT, RO 
CMPB RQ. # a-T 
BNEQ 1 
CLAL LEN 
BRB 
TSTL RO 
BEQL = 3 
CMPB RO, #3 
ha ae 
CLRL —s ENT ITY_ID 
BRB 4$ 
meet 8, csp 
CALLS #2 NMLSERROR 2 
CLARO (§P) 


(8p) 
PUSHL = ENTITY_ID 


PUSHL LEN 
SHL CHANGE RIN 
PUSHL ENT 
cyte a7, NRL CHANGE _PLURAL 


iss-32 V4.0-76 
BS chante 93004 


0705 


SCHANGE NAL Ch arameters module Bdrm: se -1 3 AX=11 Bliss-32 V4.0-74 Pa 7 NAL 
you~000 NAL CHANGE RODE Change node parameters =$ep-198e 99: 98: ba ENA « SRC INML CHANGE .832; ~ 3} v04 
; 71 ZSBTTL “MM CHANGE NOD hange node parameters ; 
; : f ROUTINE NML_C “NODE (ENTITY, PARSE_TAB, HANGE_RTN) : NOVALUE = : 
: 715 7 tee : 
3 1 4 13 FUNCTIONAL DESCRIPTION: : 
; 71 111: is routine dispatches to the routine which changes the permanent ‘ 
$ n8 a, : } > volatile data base for nodes. ° 
; 714 1 {| INPUTS: ; 
: 721 715 1! ENTITY The internal NML index for the entity specified ‘ 
ee. § at 1! in the NICE command. : 
3 © 717 1! PARSE TAB Address of NICE message parsing table. ‘ 
; 726 ie 1! CHANGE _RTN Address of routine to perform change requested : 
3 f 5 Lah ! by NICE message. : 
; ? $ ret { IMPLICIT INPUTS: : 
: § : NMLSGB_ENTITY_FORMAT contains tne entity format code. ‘ 
: , 1 , 5 -_= F 
; g § ? BEGIN 
; 735 7 
3 4 : nml$gb_entity_format : BYTE SIGNED; 

: 7 7 LOCAL 

oe 7 4 en 

; 740 7 entity_id; 

: a3 : ; IF NOT nma$np (nmi $ab_npa_blk 

3 nma$nparse (nml$ab_npa 

: 74 7 pe rse_ “tabs THEN 

3 re 4 nml$error_2 (nmaSc_stS_ide, nma$c_ent_nod) ! Option error 

: 24 740 BEGIN 

3 Si ml SELES TONEY -nml$gb_entity_format OF 

: 76 74 nma$c_ent_kno]: ! Known entities 
; 750 744 & IN 

° 7 1 745 4 en = ° 

; 4 ¢ rs 4 encityid = 0; 

; 754 74 : 

; 755 74 ; Cnma$c_ent_add): ! Node is specified by address 
as a 750 4 BEGIN ~ 

. FF 751 4 len = 2; 

af. 8 7 ; 4 entity_id = nml$ab_entity_id; 

3 54 4 Z ; END; 

; 761 755 {1 TO 6): 

: 76 7 § 4 BEGIN 

; 76 7 4 len = .nml$gb_entity_format; 

: 7646 7 } entity_id = nml$ab_entity_id; 

: 765 4 END; 

; re 7 COTHERWISE): 

: 768 762 nmi$error_2 (nma$c_sts_ide, nma$c_ent_nod); ! Option error 


———------— — 


yoLe800 NAL _tnante Rose Efinge node parameters 1§-se0-1984 99: 98: bi NMLLSRE Wat CHANG 325 set 3} 


$3 


g.°0e gentity ty. 


7 eM TES; 

nml_change_plural (.entity, .chan | =ftn, 
7 

7 

7 


6 END; ! End of NML_CHANGE_NODE 


Q00C 00000 NML_CHANGE NODE: 
WORD 


" Save R2,R3 : 17 
ooooo0ses 05 dF 0005 PUSHAB NALSAB. Bo BLK Ore 
000000006 00 Fe CALLS a. NAXSNPAR SE : 
000000006 ss 1 CVTBL NMLSGB_ENTITY_FORMAT, RO : 0741 
FF OF 1 0001 CMPB. sO, #-T + 0743 
4 F 0 BNEQ = ‘'1$ : 
2 7C€ 000 CLRO ENTITY ID + 0746 
11 BRB 5 + 0741 
D 6 1$ TSTL RO > 0749 
1 BNEG 2$ ; 
53 DO 0002A MOVL a. LEN + 0751 
1 D BRB 3 : 0732 
06 91 F 2$ CMPBeéRO, #6 : 075 
¢ 1A 0 2 BGTRU 4$ F 
53 po MOVL RO, LEN ; 0757 
000000006 00 f 7 3$: MOVAB NMLSAB_ENTITY_ID, ENTITY_ID : 0758 
¢ 1 BRB $ : O741 
5 D4 00040 48: CLRL =(SP) : 0762 
ze CE 0004 MNEGL -(SP) : 
000000006 2 FB 0004 CALLS NMLSERROR_2 ; 
E 7C 0004C 5S: CLROO = rei : 0765 
7E 04 0004 CLRL = = (SP) ; 
3 DD PUSHL ENTITY. ID : 0766 
DD PUSHL ; 
oC AC DD 9 PUSHL EHANGE _RIN + 0765 
4 AC DD 7 PUSHL ENTITY~ : 
00000000v 00 07 FB 005A CALLS #7, NML_CHANGE_PLURAL F 
04 00061 RET : 0769 


; Routine Size: 98 bytes, Routine Base: SCODES + 017F 


. 
ou 
. 
° 
o 
oo 
o 
o 
. 
. 
+ 
° 
. 
o 
. 
° 
7 
o 
. 
o 
o 
. 
o 
° 
o 
7 
o 
° 
a 
2 
° 
. 
o 
. 
oe 
. 
* 
. 
a 
. 
° 
© 
e 
7 
° 
7 
e 
. 
# 
. 
e 
. 
o 
. 
° 
o 
e 
° 
o 
. 
° 
o 
e 
o 
. 
a 
7 
e 
. 
° 
° 
o 
. 
? 
~ 
o 
- 
2 
° 
° 
> 
e 
. 
s 
. 
? 
. 
a 
> 
* 
. 
- 
. 
° 
° 
° 
e 
° 
o 
7 
i 
. 
. 
° 
a 
. 
e 
. 
e 


nmlSgb_entity_format : BYTE SIGNED; 


IF : “nat Sob. entity format EQL nma$c_ent_add) OR 
sais \$gb_entity_format LEQ 6) THEN 


IF ueoares (nml$ab_npa_blk 
arse. “tab) THEN 
nm change_ plura (.entity, _- WS rtn, 0, 0, 0, 0, 0); 


794 


Seescs 
>> 
“ooo 

wu 


“ 
~“ 
oO 
@ 


SES5 
S 


ELSE 
nml$Serror_2 (nma$c_sts_ide, nma$c_ent_nod); ! Option error 


END; ! End of NML_CHANGE_EXECUTOR 


SCHANGE NAL Ch aneters mod 4 3 AX-11 Bliss-32 V4.0-74 Pa 9 NAL 
yor~000 NAL _C Enanee Pxecur UTOR * neoey executor parameters 1$-$e0-1 98 99: 98: ba NML.SRCJNML CHANGE . B3oef wat B v04 
3 1 SSBTTL ‘NAL “fh wise “EXECU TSR hange executor parameters‘ ; 

; ROUTINE NML-CHANG CUTOR (ENTITY, PARSE_TAB, CHANGE_RTN) : NOVALUE = : 
; 1 I+ ; 
; 78) 1 | FUNCTIONAL ee ly pe : 
3 ii This routine dispatches to the routine which changes the permanent ; 
: f ! } or volatile data base. : 
: 785 778 1 { INPUTS: ; 
3 7 779 1! TSeurity The Jatornal NAL index for the entity specified : 
i a 7 1! in the NICE command. : 
3 f fe) 3 fF PARSE_T Piatese of NICE message parsing table : 
3 7 § 1! CHANGE _ RIN Address of routine to perform change requested : 
: ie f ; : by NICE nessege. : 
; 196 785 1! IMPLICIT INPUTS: ; 
; oy? ! NMLSGB_ENTITY_FORMAT contains the entity format code. : 
: 795 78B inn ; 
: | O38 790 2 BEGIN 
; 798 791 ; 
; ¢ MAP : 


coo 
par eer ed 
uN—O 


0000 00000 NAL ee es 


‘ Save no "9 ; 0771 
50 000000006 Q % 02 CVTBL NML$GB_ Hae Y_FORMAT, RO : 0795 
1 BEQL ‘i$ ; 
06 9 § 91 CMPB RO, #6 : 0796 
<¢ DD 0001) 18 BUSHL : 0799 
000000906 oP 1 PUSHAB NAL SAB NP NPA_BLK ; 0798 
000000006 90 FB 1 CALLS #3, NA NMASNPARSE : 
BLBC ; 
— ?C CLRO = cep} + 0800 
7E 7¢ CLRO = (SP) ; 
7E D4 CLRL = = (SP) : 
oC AC DD 9 PUSHL  CHANGE_RTN ; 
4 aC DD C PUSHL ENTITY™ : 
00000000v 00 07 FB F CALLS #7, NML_CHANGE_PLURAL ; 


yoLe0o NAL NAL .CHANee Re tooan tnange x X25-Protocol and x25 18-se0- 32 99:08: 3e YN SREINAL CHANGE: B32- ites (3) 


} 
ETT ME RONEE-AEWOUE ENTE, BEAEDERS cht aannne’E Parenter 
| 


++ 
= 


—>- - 
- 


i* FUNCTION DESCRIPTI On: 
i outine d gory 5 oe aye routine which ghanges the permanent 
: > “Set le data bese t r X25-Protocol and X25-Access networks. 

i INPUTS: 

: ENTITY ie ioe rnal Bee index for the entity specified in 
i PARSE_T Address of NICE messa rsing table. 

CHANGE RIN i yr per tore Change requested 

i 

' 

i 


Address of routine 
by NICE eseenee. 


IMPLICIT INPUTS: 
NALSGB_ENTITY_FORMAT contains the entity format code. 


nal$gb_entity_format : BYTE SIGNED; 


IF NOT nmaSnparse (nmlSab_npa_blk, .parse_tab) THEN 
a 7 nmisgb. entity_code) 


Y. 
, 
Y. 
Y. 
y. 
f 
1829 
y. 
Y 
y 
y 
Y: 
f 


nalSerror_2 (nma$c_stS_ide, . 


BEGIN 
acLee Tyee -nal$gb_entity_format OF 


nma$c_ent_kno): ! wm networks 
nal_change_plural (.entity, .change_r 
ar ASap entity, forast. 0, 


+. 


an antntnentnentneaanene 


(0): ! Active network 
nml_change_plural a3 ¥ -change_rtn, 


; 0); 


C1 TO 16): ! _sinate network 
nal_change_plural (.entity, .change 
j nai 39 sentity. rate, nml$ab_entity_id, 


COTHERWISE): 
: nalSerror_2 (nma$c_sts_ide, .nml$gb_entity_code); 
END; 
END; ! End of NML_CHANGE_NETWORK 


0004 00000 NML_CHANGE_NETWORK: 


vor=000 


3; Routine Size: 


WAL CHANGE RETOORK, Change X25-Protocol and 


101 bytes, 


o0o00e80 0) Sr 


vn Boe : 


~ tf 


C 

000000906 oF 

ae 

00000000v 00 07 FB 


43 000000006 09 
000000006 2 


Routine Base: S$CODES + 0225 


cas HECREBCTSNS QO:Q0:BE  YAMCTE PAtnecBz, 0374 


PaaS ETB a 
#2, NMKSNPARSE 


NBCSGB ENTITY FORMAT, R2 


e #16 
SP) 
(SP) 
NAL SAB_ENTITY_1D 

CHANGE _RTN 

ENTITY 

#7, NML_CHANGE_PLURAL 
NML$GB_ENTITY_CODE, (SP) 
#9 ) 


#2, NMLSERROR_2 


wwet t trom i 


BeBe Se Se Se Se Se Ge Se Se Se Se Fe Ge Ge Ge Ge Fe Se Ge Ge Ge Ge Ge Ge Fe Se Se Ge Se Se 


INNNVNO SO 
AFWN—S L 


Sao 


0 
5 


Mew 


SESS Soe es 90 CP GO 09 GP OP c 


33SS3 


ers ortute 1b-Sep- 3 AX-11 Bliss-32 V4.0-7 
LINKS C€ Link volatile param 1 att} 9: 98: da NML . SRC JNML CHANGE . B32; 
TSBTTL "MALI DLSEONNEE T= LINKS Clee Link volatile parameters’ 
ROUTINE NALDISCONNECT“LINKS : ALUE = 


we 
FUNCTIONAL DESCRIPTION: 


This routine clears the specified Link parameters into the volatile 
data base. 


i IMPLICIT INPUTS: 


ol FLGS contains the parse flags. 
NACSCBTENTITG. FORMAT contains the entity format code. 


nal$gb_entity_format : BYTE SIGNED; 
1 
: ALL functions specifying the Link entity must be system-specific. 


IF .nml$gl_prs_figs Cnml$v_prs_vms) THEN 
SELEGTOREU” ~inalS$gb. entTty. format OF 


ie* ent_kno): Known 
nmT_change_plural (nal $s Links’ 
iscknown 


-nml$gl_ qualifie er_pst, 
onal $90. qualifier format, 
nml$ab_Qualifier_Td); 


Cnma$c_ent_add): 
nal_change_plural (nal$e, Links, 
disconne 
- (nal $ab_ ome. id)<0,16>, 0); 


TES; 
nal$Serror_2 (nma$c_sts_ide, nma$c_sent_\ink); ! Option error 
END; ! End of NML_DISCONNECT_LINKS 
0004 00000 NAL -PISCONNECT. LINKS: a 
5 V 9 HOVAB U° CHANGE PLURAL, R2 
G BLBC NAL SL PRS-FLGS, oS 
6 CVTBL GB-ENTITY_FORMAT, RO 
FF OF 1 CMPB) séRO, @-T 
2 00018 BNEQ 1 


23 


HANGE NAL Ch e is ep- :00: AX-11 Bliss- se 74 Pa 
YO%000 NAL DISCONNECT LINKS. ape * Link volatile param : Haat 1 99: 98:32 ENAL . SR SW NML CHANG 83504 set 
1000000 PUSHAB NAL $AB _QUALIFIER_ID : 
MOVZBL ¢B70u UALIFIER=FORMAT, -(SP) : 
PUSHL ibis QUAL IE FIER-PST : 
PUS 3 
PUSH : 
CALL , NML_CHANGE_PLURAL ; 
BRB 3 
TSTL 3 0893 
i BG! tee oye 
7E G MOVZ2WL NMLSAB_ENTITY_ID, =(SP) ; 0896 
Ssenne pales ist bienut : ie 
62 CALLS #4, NML_CHANGE_PLURAL : 
7 PUSHL #7 3; 0899 
43 9 MNEGL 4&9, =(SP) : 
000000006 0 2 CALLS #2, NMLSERROR_2 r 
RET ; 0901 


; Routine Size: 98 bytes, Routine Base: S$CODES + 028A 


™ ae 


8 
SCHANGE NAL Chan ararneters module 1b-se ol | :00:33 AX-11 Bliss-32 V4.0-74 P 5 
yO%000 NAL CHANGE. PLURAL Change plural entity paramete 1 390-138 99:90 de ENAL. SRE NML CHANGE .832; a0 493 
: ZSBTTL "NML_CHANGE PLURAL Change plural qnt ity parameters’ 
ROUTINE NML_CHANGE PLURAL (ENT, RIN, PRM1, PRAZ2, PRMS, PRM4, PRMS) : NOVALUE = 
' 


lee 
} FUNCTIONAL DESCRIPTION: 


— 


This routine gertoras initialization for change operations. 
The NICE fram ng oossaages (plural and done) are transmitted and 
the SET/CLEAR/DEFINE/PURGE routine is called. 


! FORMAL PARAMETERS: 


ENT Entity type code. 
RIN Address of routine to be called. 
PRM1 = PRMS Function=specific routine parameters. 


SIDE EFFECTS: 
Several NICE messages are transmitted. 


MEW DONA VLE WIN OO OONOUE wr 


nml$gb_options : BBLOCK [1]; 


Lopes ery ee etre we Ne eh a oe Nae a 


LLL LLL LL LL oecsocccccocoooooooooo 


LOCAL 
? msgsize; 
¢ IF -nml $gb_options Cnma$v_opt_per] THEN 
: Open permanerit data base file specified for write. 
§ ev sermesopent ite (.nml$ab_entitydata C.ent, eitSb_fileidJ, nma$c_opn_ac_rw) 
: BEGIN 
950 i If this is @ SET ALL command then open the permanent data base file 
32) for read. 
338 if NOT pat $gb_opt ions Crma$v_opt ete] 
954 AND .nml$gl_prs_flgs Cnml$v_prs_aTl] THEN 
Bee nmlSopenfile (.nmlS$ab_entitydata C.ent, eit$b_fileid], 
$ nma$c_opn_ac_ro); 
oer , END; 
959 Send success with multiple responses message. 
36t nal$bld reply (UPLIT (0 naasc ste aor), msgsize); ! Build message 
96¢ nal$send (nm $ab_sndbuffer, .msgsize); i Send it 
Bee Enable condition handler to allow done message to be sent. 
966 LibSestablish (nml$mainhandler); 
968 i Call entity-specific routine. 


ont Lea 


$5 


M -S 
wan SE RANGE f PeGaat the module 19-3 Sep- 
than E_PLURAL Change plural entity paramete 14-Sep~1 


1986 F2i05be ERM. SRCINAL CHANGE B3¢; 


i 10 93 (ren) (.ent, .prmi, .prm2, .prm3, .prm4, .prm5); 

; 978 Signal done message. 

; 974 tberevert 0; ! Disable condition handler 
: af? 5 nal$error_1 (nma$c _S8ts_don); ! Signal no more responses 
; 379 36) END; ! End of NML_CHANGE_PLURAL 


-PSECT SPLITS,NOWRT,NOEXE,2 
00000002 00000000 00018 P.AAG: .LONG 0, 2 


-PSECT S$CODES,NOWRT,2 
0004 00000 NML_CHANGE ae 


wo Save R2 
52 000000006 00 £5 83 9000 OVA NL SB OPTIONS, R2 
§ 0000¢ TSTB  -NMLSGB_OPTIONS 
04 18 0000 BGEQ~Ss«é18 
1 0D 9001 PUSHL #1 
0€ 11 0001 BRB 2$ 
1E 62 06 £0 00014 18: B3S #6, NML$GB_OPTIONS 
16 000000006 00 Qi E 0018 BBC #1, NMLSGL-PRS _FLGS, 3 
50 04 AC 2c §3 00 $ 23: MULL3 Hae RO 
7E 0000000060040 9A 000 MOV ZBL Na SAB. EAT] TYDATACROI, -(SP) 
000000006 00 02 FB 00 f sins CALLS cp NMCSOPEN 
00000000' 30 9F 00038 PUSHAB 
000000006 00 ve FB tte CALLS i AML SBLD _REPLY 
000000006 OF wn PUSHAB NALSAD SNDBUFFER 
ee 000000006 oP Niet SUSHAB a: lta ANDLER 
000000006 90 o1 FB 0034 CALLS #1, LIBSESTABLISH 
eM ee a =(3P) 
gf AC OD C PUSHL 
4 C 6 FB e CALLS i 
commis Fg HEE eye 
000000006 00 1 FB Oo7e CALLS at 28 1 
04 0008 RET 


3; Routine Size: 134 bytes, Routine Base: S$CODE$ + O2EC 


Page 435 


N 

NMLSCHANGE Change parameters module 16- 4 AX-11 Bliss-32 V4.0-74 p 7 

yO%~000 NAL CHANGE £ PLURAL Change plural entity paramete 14-S sep-1984 99: 98: aa NML .. SRCINML CHANGE .832; age 43) 
! 


Size: 882 code + 1656 data bytes 
me: 0 5 


3; Elapsed Time: 1:16.8 
3; Lines/CPU Min: 16 

3 Ronenes/<PU-win: 36265 

3 A; sed: 198 pages 
; es ation Complete 


; 979 } END ! End of module . 
; 980 03 § " : 
; 981 970 ! ELUDOM é 
PSECT SUMMARY ; 
; Name Bytes Attributes : 
: SOWNS 1624 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON.NOPIC .ALIGN(2) ; 
> SPLITS 2 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) F 
; SCODES 882 NOVEC.NOWRT, RD; EXE.NOSHR. LCL, REL. CON.NOPIC,ALIGN(2) : 
: Library Statistics ; 
a a a Se oe Symbols -------- Pages Processing : 
; File Total ibaded™ Percent Mapped Time : 
: _$255$DUA28: NIML -OBJINMLL1B.L325 1 341 36 10 27 00:00.1 ; 
: “see SbUASE: SHRL IBINMALIBRY 2:1 887 15 1 47 00:00.2 : 
; 7$255$pUA28:CSYSLIBISTARLET.L32; 1 9776 0 0 581 00:02. : 
F COMMAND QUALIFIERS : 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=L1S$:NMLCHANGE/OBJ=O0BJ$:NMLCHANGE MSRC$:NMLCHANGE/UPDATE=(ENH$ : NML CHANGE ) : 


ore eee ee = 


TAL EQUIPMENT CORPORATION 
IDENTIAL AND PROPRIETARY 


OBL Tess isc 


